home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Python 1.3.3 / Python 133 SRC / Mac / Compat / getbootvol.c < prev    next >
Text File  |  1994-08-19  |  376b  |  19 lines
  1. /* Return the name of the boot volume (not the current directory).
  2.    Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
  3. */
  4.  
  5. #include "macdefs.h"
  6.  
  7. char *
  8. getbootvol()
  9. {
  10.     short vrefnum;
  11.     static unsigned char name[32];
  12.     
  13.     (void) GetVol(name, &vrefnum);
  14.     p2cstr(name);
  15.         /* Shouldn't fail; return ":" if it does */
  16.     strcat((char *)name, ":");
  17.     return (char *)name;
  18. }
  19.